'===============================================================================
'= Copyright 1992 Staz™ Software, Inc.   =  Portions © 1992 Zedcor™, Inc.      =
'=       All rights reserved             =        All rights reserved          =
'=         "PG PRO.GLBL"                 =   from "Runtime.GLBL"  by Andy G.   =
'===============================================================================
'_______________________________________________________________________________
'››››››››››››››››››››››››››››››››››› EQUATES ›››››››››››››››››››››››››››››››››››
'———————————————————————————————————————————————————————————————————————————————
'-------------------------------------------------------------------------------
:'PG:PRO CONSTANTS
'-------------------------------------------------------------------------------
_baseID                 = 4000'starting ID for resources
_tempID                 = 3500'ID for temporary resources

_typeFSS                = _"fss "
_keyDirectObject        = _"----"
_typeAEList             = _"list"
_typeAppleEvent         = _"aevt"
_kAEOpenApplication     = _"oapp"
_kAEOpenDocuments       = _"odoc"
_kAEPrintDocuments      = _"pdoc"
_kAEQuitApplication     = _"quit"
'-------------------------------------------------------------------------------
:'PG:PRO MENUS
'-------------------------------------------------------------------------------
_justifyItem            = 12
'-------------------------------------------------------------------------------
:'PG:PRO USER DEFINED CONSTANTS
'-------------------------------------------------------------------------------
_pictCursor             = _arrowCursor'cursor used over pict fields
_fingerCursor           = 4000'hand w/pointer finger
_buttonCursor           = _fingerCursor'cursor used over buttons
_ignoreSnglClk          = _false'report single clicks in lists
_ignoreCmndPeriod       = _false'if true, don't break on "⌘."
_TEWndInset             = 4'pixel inset for text editors
_closeItemSkipsDoids    = _false'Cmnd-W closes doc - not doid?
'_______________________________________________________________________________
'››››››››››››››››››››››››››››››››››› GLOBALS ›››››››››››››››››››››››››››››››››››
'———————————————————————————————————————————————————————————————————————————————
'-------------------------------------------------------------------------------
:'RUNTIME
'-------------------------------------------------------------------------------
DIM gAction%'Event Action
DIM gSubAction%'Sub Action Number
DIM gWhichDialog%'result of DIALOG(0)
DIM gDialogValue%'result of DIALOG(Act)
DIM gWhichClass%'Current Window Class
DIM gActWindow%;0,gActiveWnd'Current Active window number
DIM gOutWindow%;0,gOutputWnd'Current Output window number

DIM gMessage1%;0,gWhichMenu%;0,gWhichButton%;0,gIsStationery;0
DIM gWhichField%;0,gWhichWindow%;0,gWhichRefCon&;0,gMouseY%

DIM gMessage2%;0,gWhichItem%;0,gButtonValue%;0,gMouseX%

DIM gEventPtr&'Pointer to Event Record
DIM gEventRec;0,gWhat%,gMessage&,gWhen&,gWhereY%,gWhereX%,gModifiers%

DIM gClickStatus;0,gFieldWas;0,gOpenVol;0,gFileVol
DIM gControlHndl&;0,gFileType&
DIM gWhichObjElem%

DIM gItemName$;0,gControlTitle$;0,gWindowTitle$
DIM 32 gFileName$;0,32 gOpenName$,50 gKey$,gOutputWas

DIM gScreenDepth%
DIM gScreenRect;0,gScrnT%,gScrnL%,gScrnB%,gScrnR%'Main Monitor Size in Pixels
'-------------------------------------------------------------------------------
:'OBJECT
'-------------------------------------------------------------------------------
'
'                      User item designations     "*" set by PG PRO
'                                                 "-" standard user entries
'                                                 "+" free for user items
DIM RECORD gObject
DIM gObjSel'* neg if sel'd/not 1 if group
DIM gObjKind'* see object constants above
DIM gObjRef;0,gObjPenSz'* btn,fld ref num pr pensize
DIM gObjSelT,gObjSelL,gObjSelB,gObjSelR'* selection rect
DIM gObjT,gObjL,gObjB,gObjR'* object's rect
DIM gObjZType'* button/field type
DIM gObjUserTp&;0'- user 'TYPE' designator
DIM gObjLFont;0 ,gObjZJust'  LMCD font# or field just
DIM gObjCtrlVal;0,gObjAutoReSz;0,gObjFillPat'  button value or fill pat
DIM gObjUserHndl&;0'- user handle storage
DIM gObjLSize;0 ,gObjMin;0    ,gObjLinePat'  LM size,scrl min,line pat
DIM gObjMax;0   ,gObjFRed'  scroll btn max,fore red
DIM gObjUser1;0 ,gObjPgUpDn;0 ,gObjFGreen'+ scroll page,fore green
DIM gObjUser2;0 ,gObjCon;0    ,gObjFBlue'+ foreground blue
DIM gObjUser3;0 ,gObjElement;0,gObjResID;0,gObjBRed'+ STR# element,ResID,back red
DIM gObjUser4&;0,gObjHndl&;0  ,gObjBGreen'objHndl,back green
DIM gObjBlue'  background blue
DIM END RECORD _objRecSz
'-------------------------------------------------------------------------------
:'MISC
'-------------------------------------------------------------------------------
DIM gResRef'res file ref num:FN replaceRes
DIM gInBackground'true if switched out by MF
'
DIM gUndoable,gUndoHndl&'(Ed Fltr) globals for undo
DIM gUndoStart,gUndoEnd'(Ed Fltr) sel range for undo
'
DIM gFileList&'handle to file list
DIM 16 gOpenType$'types of fields that may be opened
DIM gDirty'set if file needs to be saved
DIM gKissOfDeath'if non-zero then exit
DIM 32 gSaveName$'name of active document
DIM gSaveVol'vol ref of active doc
DIM gDblWnd'wnd # of dbl-clk'd list
DIM gDblRef'btn # of dbl-clk'd list
DIM gDblTime&'tks for dbl-clk'd list
DIM gDblClick'true if list was dbl-clicked
DIM gSilenceAudio'true if sounds disabled
DIM gI3cursor'tracks cursor over 3D btns
DIM gBigT,gBigL,gBigB,gBigR'generic big rectangle
'-------------------------------------------------------------------------------
DIM GLBLask&      ,GLBLautoMenu& ,GLBLbtnAction&
DIM GLBLbuild&    ,GLBLcheckName&,GLBLclose&
DIM GLBLcntrRes&  ,GLBLcountObj& ,GLBLcursor&
DIM GLBLdrwCtrls& ,GLBLfield&    ,GLBLfindMenu&
DIM GLBLfixEditor&,GLBLfixMenus& ,GLBLframeBtn&
DIM GLBLgetGroup& ,GLBLgetIName& ,GLBLgetObj&
DIM GLBLgetRef&   ,GLBLgetText&  ,GLBLgetWnd&
DIM GLBLgetWTitle&,GLBLinitRntm& ,GLBLinsetWnd&
DIM GLBLmouse&    ,GLBLopenDoc&  ,GLBLopenFile&
DIM GLBLptInObj&  ,GLBLputObj&   ,GLBLputWnd&
DIM GLBLrepRes&   ,GLBLrepXRes&  ,GLBLsetGroup&
DIM GLBLsetGrow&  ,GLBLsetZoom&  ,GLBLshowErr&
DIM GLBLtab&      ,GLBLupdate&   ,GLBLuseObjClr&
DIM GLBLsaveAs&   ,GLBLcloseAll& ,GLBLblkNWhite&
DIM GLBLpntDpth&